﻿Namespace Model

    Public Class LiveProgramEventArgs
        Inherits EventArgs

        Public Sub New(ByVal program As LiveProgram)
            If program IsNot Nothing Then
                _LiveProgram = DirectCast(program.Clone, LiveProgram)
            End If
        End Sub

        Private _LiveProgram As LiveProgram
        Public ReadOnly Property LiveProgram() As LiveProgram
            Get
                Return _LiveProgram
            End Get
        End Property

    End Class

End Namespace
